---
title: "PG&E Power Shutdown"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
```
Column {data-width=650}
-----------------------------------------------------------------------
### Area been Affected In Oct. 9, 2019
```{r message=F, warning=F, include = FALSE}
library(tidyverse)
library(leaflet)
library(sf)
library(DT)
library(shiny)
library(leaflet.extras)
# pge close location
pge <- st_read("/Users/yifeiliu/Documents/R/data/EDA/Blog_draft/pge/pge_simple.gpkg")
pal <- colorNumeric(palette = rcartocolor::carto_pal(7, "PinkYl") , NULL)
# CA zip population
cali_comp <- read_sf("/Users/yifeiliu/Documents/R/data/EDA/Blog_draft/pge/cali_comp.gpkg")
cali_df <- read_csv("/Users/yifeiliu/Documents/R/data/EDA/Blog_draft/pge/cali_comp.csv")
labs <- lapply(seq(nrow(cali_df)), function(i) {
paste0('', "City: ",cali_df[i, "city"],'
',
"Zip Code: ",cali_df[i, "ZCTA5CE10"],'',
"Population: ",cali_df[i, "pop"], '',
"Affect or not: ", cali_df[i, "affect"], '',
"Affect Area: ", cali_df[i, "Affect_area"], " Acre",'',
"% of Area Affected: ", cali_df[i, "pct"])
})
```
```{r}
leaflet(options = leafletOptions(dragging = F,
minZoom = 5)) %>%
addPolygons(data = pge, fillColor = "black", fillOpacity = 0.65, color = "black",
weight = 1) %>%
addPolygons(data = cali_comp, stroke = FALSE, smoothFactor = 0.3, fillOpacity = 0.7, color = "#03F",
fillColor = ~pal(pop),
label = lapply(labs, htmltools::HTML)) %>%
addProviderTiles("OpenStreetMap.BlackAndWhite") %>%
addResetMapButton()
```
Column {data-width=350}
-----------------------------------------------------------------------
### Affect area data table
```{r}
info_clean <- cali_df %>%
select(city, ZCTA5CE10, affect, Affect_area, pct, pop, household) %>%
setNames(c("City", "Zip", "Affect", "Affect Area", "# of Area Affected", "Population", "# Household"))
datatable(info_clean,
caption = htmltools::tags$caption(
style = 'caption-side: bottom; text-align: center;',
'Data Source:', htmltools::em('Data.gov | PG&E')
))
```